Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/Demos/Bombardier_PC/BSCRIPTS.CST/00103_Script_rollers-extQTVR

Text File | 1999-04-25 | 1KB | 35 lines

-- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
-- Developed for Bombardier, Inc.
--
-- All programming developed by:
-- Robert Fabricant, Valerie Valoueva, Ossi Shaked,
-- Henry Sauvageot, Chris Howell & Chris Girand
--
-- Use of this code by parties other than @radical.media, inc. or their
--agents
-- without the express written consent of @radical.media, inc. AND Concurrent
-- New Media Group, L.L.C. is strictly prohibited.
------------------------------------------------------

property mySprite, myMember, root

on new me
  set mySprite = the spriteNum of me
  set myMember = the member of sprite mySprite
  set root = "qtvr-ext"
  return me
end


-- these two handlers are called by the behaviour "rollers-sprites", for the exterior obj movie rollovers.  Each sprite, on mouseEnter, calls the "change" handler in this script, passing in a number (in the form of a string) to this handler, who then converts it to the appropriate cast number.  When the other behaviour gets the "on mouseLeave me" event, it calls "reset" on this script.

on change me, theNum
  set suffix = string(theNum)
  set theName = root&suffix
  set the member of sprite mySprite = member theName
end

on reset me
  set the member of sprite mySprite = member myMember
end